sbbox <- make_bbox(lon = ds$longitude, lat = ds$latitude, f = .1)
sq_map <- get_map(location = sbbox,
maptype = "satellite",
source = "google")
ggmap(sq_map) +
geom_point(data = ds, mapping = aes(x = longitude, y = latitude,
color = county)) +
xlab("Longitude") +
ylab("Latitude") +
labs(color = "Local" ) +
ggtitle("Mapa de coordenadas por localidade")
library(htmltools)
leaflet(data = ds) %>%
addTiles() %>%
addMarkers(lng=~longitude, lat=~latitude,
clusterOptions = markerClusterOptions(),
popup = ~htmlEscape(county))leaflet(data = ds) %>%
addTiles() %>%
addMarkers(lng=~longitude, lat=~latitude,
clusterOptions = markerClusterOptions(),
popup = ~htmlEscape(county)) %>%
addRectangles(lng1=-48.81455, lat1=-25.36165,
lng2=-47.92595, lat2=-25.60345,
fillColor = "transparent")leaflet(data = ds) %>%
addTiles(group = "OSM (default)") %>%
addProviderTiles(providers$Stamen.Toner, group = "Toner") %>%
addProviderTiles(providers$Stamen.TonerLite, group = "Toner Lite") %>%
addProviderTiles(providers$CartoDB.Positron, group = "Positron") %>%
addMarkers(lng=~longitude, lat=~latitude,
clusterOptions = markerClusterOptions(),
popup = ~htmlEscape(county)) %>%
addLayersControl(
baseGroups = c("OSM (default)", "Toner", "Toner Lite","Positron"),
options = layersControlOptions(collapsed = FALSE)
)